//Sebelum ketik kode , kode ini harus diketik dahulu 
//untuk lebih jelasnya baca
// MIKRODATA Vol 12 Seri  14"Menyembunyikan Proses Di Windows",Yohanes 
//Nugroho
{
Type fungsi = Function (ProcessID , PRType : DWORD):DWORD;stdcall;
Var
RegisterServiceProcess : fungsi;
}
//Menampilkan aplikasi yang hidden (Ctrl + Alt + Del) pada Task Manager Windows

procedure TForm1.Button5Click(Sender: TObject);
var i  : HWND;
      kernel32:dword;
      pid : dword;	
begin  
      if Listbox1.itemindex<> - 1 then
      begin
            i := HWND(Listbox1.items.Objects[Listbox1.itemindex]);
            GetWindowThreadProcessID( i, @pid );	
      	kernel32 := GetModuleHandle('kernel32.dll');
      	RegisterServiceProcess := GetProcAddress(kernel32, 'RegisterServiceProcess');
      	RegisterServiceProcess(pid,0);
      end;
end;

//Untuk menembunyikan lagi ganti 0 dengan 1
